﻿Imports System.Data
Imports FirebirdSql.Data
Imports FirebirdSql.Data.FirebirdClient
Public Class frmCadastroUsuario


    Private seg As New _Autentica

    Private Sub setSeguranca()
        With seg
            .idUsuario = ""
            .Login = ""
            .NmCompleto = ""
            .idPerfil = ""
            .dsPerfil = ""
        End With


    End Sub

    Private Sub getSeguranca()
        With seg
            .idUsuario = ""
            .Login = ""
            .NmCompleto = ""
            .idPerfil = ""
            .dsPerfil = ""
        End With

    End Sub

End Class